home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 008a / fglqbx10.zip / 06-10.BAS < prev    next >
BASIC Source File  |  1991-06-06  |  661b  |  38 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. DECLARE FUNCTION RandomNumber(Min,Max)
  6.  
  7. CONST Rectangles = 200
  8.  
  9. OldMode = FGgetmode
  10. FGsetmode(FGautomode)
  11.  
  12. Xres = FGgetmaxx
  13. Yres = FGgetmaxy
  14.  
  15. FOR I = 1 TO Rectangles
  16.    MinX = RandomNumber(0,Xres)
  17.    MaxX = RandomNumber(0,Xres)
  18.    MinY = RandomNumber(0,Yres)
  19.    MaxY = RandomNumber(0,Yres)
  20.    IF MinX > MaxX THEN SWAP MinX, MaxX
  21.    IF MinY > MaxY THEN SWAP MinY, MaxY
  22.    FGsetcolor RandomNumber(0,15)
  23.    FGrect MinX, MaxX, MinY, MaxY
  24. NEXT
  25.  
  26. FGsetmode OldMode
  27. FGreset
  28.  
  29. END
  30.  
  31.  
  32. FUNCTION RandomNumber(Min,Max)
  33.  
  34. Temp = RND * 32767
  35. RandomNumber = (Temp MOD (Max-Min+1)) + Min
  36.  
  37. END FUNCTION
  38.